﻿Public Class Table_List

    Private Sub Table_List_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim i As Integer
            While i < Parent1.TreeView1.Nodes.Count
                Me.TreeView1.Nodes.Add(Parent1.TreeView1.Nodes(i).Text)
                i = i + 1
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
     
    End Sub
End Class